home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGMISC / SUPER135.LZH / ERRORSYS.PRG < prev    next >
Text File  |  1989-02-14  |  2KB  |  168 lines
  1. ***
  2. *    ERRORSYS
  3. *
  4. *    Clipper error system
  5. *
  6.  
  7. NOTE ALTD()
  8.  
  9. RETURN
  10.  
  11.  
  12. ***
  13. *    expr_error(name, line, info, model, _1, _2, _3)
  14. *
  15.  
  16. FUNCTION expr_error
  17. PARAM name, line, info, model, _1, _2, _3
  18.  
  19. SET DEVICE TO SCREEN
  20. IF !TYPE('s_BYPASS_') = "U"
  21.         BREAK
  22.         RETURN ''
  23. ENDIF
  24. @ 0, 0
  25. @ 0, 0 SAY "Proc " + M->name + " line " + LTRIM(STR(M->line)) +;
  26.             ", " + M->info
  27.  
  28. QUIT
  29.  
  30. RETURN .F.
  31.  
  32.  
  33. ***
  34. *    undef_error(name, line, info, model, _1)
  35. *
  36.  
  37. FUNCTION undef_error
  38. PARAM name, line, info, model, _1
  39.  
  40. SET DEVICE TO SCREEN
  41. IF !TYPE('s_BYPASS_') = "U"
  42.         BREAK
  43.         RETURN ''
  44. ENDIF
  45. @ 0, 0
  46. @ 0, 0 SAY "Proc " + M->name + " line " + LTRIM(STR(M->line)) +;
  47.             ", " + M->info + " " + M->_1
  48.  
  49. QUIT
  50.  
  51. RETURN .T.
  52.  
  53.  
  54. ***
  55. *    misc_error(name, line, info, model)
  56. *
  57.  
  58. FUNCTION misc_error
  59. PARAM name, line, info, model
  60.  
  61. SET DEVICE TO SCREEN
  62. IF !TYPE('s_BYPASS_') = "U"
  63.         BREAK
  64.         RETURN ''
  65. ENDIF
  66. @ 0, 0
  67. @ 0, 0 SAY "Proc " + M->name + " line " + LTRIM(STR(M->line)) +;
  68.             ", " + M->info
  69.  
  70. NOTE BREAK
  71.  
  72. QUIT
  73.  
  74. RETURN .F.
  75.  
  76.  
  77. ***
  78. *    open_error(name, line, info, model, _1)
  79. *
  80.  
  81. FUNCTION open_error
  82. PARAM name, line, info, model, _1
  83.  
  84. IF NETERR() .AND. model == "USE"
  85.     RETURN .F.
  86. END
  87.  
  88. SET DEVICE TO SCREEN
  89. IF !TYPE('s_BYPASS_') = "U"
  90.         BREAK
  91.         RETURN ''
  92. ENDIF
  93. @ 0, 0
  94. @ 0, 0 SAY "Proc " + M->name + " line " + LTRIM(STR(M->line)) +;
  95.             ", " + M->info + " " + M->_1 + " (" + LTRIM(STR(DOSERROR())) + ")"
  96. @ 0, 65 SAY "Retry? (Y/N)"
  97.  
  98. INKEY(0)
  99.  
  100. DO WHILE .NOT. CHR(LASTKEY()) $ "YyNn"
  101.     INKEY(0)
  102. END
  103.  
  104. IF .NOT. CHR(LASTKEY()) $ "Yy"
  105.     QUIT
  106. END
  107.  
  108. @ 0,0
  109.  
  110. RETURN .T.
  111.  
  112.  
  113. ***
  114. *    db_error(name, line, info)
  115. *
  116.  
  117. FUNCTION db_error
  118. PARAM name, line, info
  119.  
  120. SET DEVICE TO SCREEN
  121. IF !TYPE('s_BYPASS_') = "U"
  122.         BREAK
  123.         RETURN ''
  124. ENDIF
  125. @ 0, 0
  126. @ 0, 0 SAY "Proc " + M->name + " line " + LTRIM(STR(M->line)) +;
  127.             ", " + M->info
  128.  
  129. NOTE BREAK
  130.  
  131. QUIT
  132.  
  133. RETURN .F.
  134.  
  135.  
  136. ***
  137. *    print_error(name, line)
  138. *
  139.  
  140. FUNCTION print_error
  141. PARAM name, line
  142.  
  143. SET DEVICE TO SCREEN
  144. IF !TYPE('s_BYPASS_') = "U"
  145.         BREAK
  146.         RETURN ''
  147. ENDIF
  148. @ 0, 0
  149. @ 0, 0 SAY "Proc " + M->name + " line " + LTRIM(STR(M->line)) +;
  150.             ", printer not ready"
  151.  
  152. @ 0, 65 SAY "Retry? (Y/N)"
  153.  
  154. INKEY(0)
  155.  
  156. DO WHILE .NOT. CHR(LASTKEY()) $ "YyNn"
  157.     INKEY(0)
  158. END
  159.  
  160. IF .NOT. CHR(LASTKEY()) $ "Yy"
  161.     QUIT
  162. END
  163.  
  164. @ 0,0
  165.  
  166. RETURN .T.
  167.  
  168.